home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 30
/
Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso
/
Aminet
/
util
/
misc
/
MCPPReload.lha
/
MCPPReload
/
Install
next >
Wrap
Text File
|
1999-01-13
|
2KB
|
85 lines
(set #langfound 0)
(if (= "deutsch" @language)
(
(set #langfound 1)
(set #MSG_WHERE "Wohin soll das Utility (ca. 8 KByte lang) kopiert werden?")
(set #MSG_WHERE_OTHER "Anderen Pfad auswählen ...")
(set #MSG_PATH "Zielpfad wählen!")
(set #MSG_BADPATH "\nPfad existiert nicht!")
(set #MSG_COPY "Kopiere MCPPReload nach \"%s\" ...")
(set #MSG_DONE "\nInstallation abgeschlossen!")
(set #MSG_NOHELP "Es gibt keine Hilfe. Sorry!")
)
)
(if (= 0 #langfound)
(
(set #MSG_WHERE "Where do you want the utility (~8 KBytes long) to be copied?")
(set #MSG_WHERE_OTHER "Other place ...")
(set #MSG_PATH "Select destination path!")
(set #MSG_BADPATH "\nPath does not exist!")
(set #MSG_COPY "Copying MCPPReload to \"%s\" ...")
(set #MSG_DONE "\nInstallation complete!")
(set #MSG_NOHELP "No help available. Sorry!")
)
)
(set #where
(askchoice
(prompt #MSG_WHERE)
(help #MSG_NOHELP)
(choices "C:" "MDEV:bin/" #MSG_WHERE_OTHER)
(default 0)
)
)
(set #ok 0)
(while (= 0 #ok)
(
(set #ok 1)
(if (= 0 #where)
(set #dest "C:")
(
(if (= 1 #where)
(set #dest "MDEV:bin")
(
(set #dest
(askdir
(prompt #MSG_PATH)
(help #MSG_NOHELP)
(default "MDEV:")
(disk)
)
)
)
)
)
)
(if (<> 2 (exists #dest))
(
(set #ok 0)
(set #where 2)
(message #MSG_BADPATH)
)
)
)
)
(set #dest (expandpath #dest))
(copyfiles
(prompt (#MSG_COPY #dest))
(help #MSG_NOHELP)
(source "MCPPReload")
(dest #dest)
(confirm)
)
(exit #MSG_DONE (quiet))